home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 June
/
CHIP Turkiye Haziran 1997.iso
/
shar
/
95crowd
/
_setup.1
/
Crowd.exe
/
0
/
RCDATA
/
TFRMWIZARD
/
TFRMWIZARD.txt
< prev
Wrap
Text File
|
1996-09-03
|
26KB
|
1,000 lines
object frmWizard: TfrmWizard
Left = 101
Top = 109
BorderIcons = [biSystemMenu, biHelp]
BorderStyle = bsSingle
Caption = 'New User Wizard'
ClientHeight = 297
ClientWidth = 471
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object cmdFinish: TButton
Left = 409
Top = 273
Width = 54
Height = 21
HelpContext = 445
Caption = '&Finish'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 1
OnClick = cmdFinishClick
end
object cmdNext: TButton
Left = 350
Top = 273
Width = 54
Height = 21
HelpContext = 440
Caption = '&Next>'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = cmdNextClick
end
object cmdBack: TButton
Left = 296
Top = 273
Width = 54
Height = 21
HelpContext = 435
Caption = '<&Back'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = cmdBackClick
end
object cmdCancel: TButton
Left = 234
Top = 273
Width = 54
Height = 21
HelpContext = 430
Cancel = True
Caption = 'Cancel'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 4
end
object cmdHelp: TButton
Left = 166
Top = 273
Width = 54
Height = 21
HelpContext = 425
Caption = '&Help'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
Visible = False
OnClick = cmdHelpClick
end
object PageControl1: TPageControl
Left = 6
Top = 5
Width = 459
Height = 262
ActivePage = PageStartMenu
TabOrder = 0
object PageName: TTabSheet
Caption = 'PageName'
TabVisible = False
object Shape1: TShape
Left = 8
Top = 13
Width = 360
Height = 43
Brush.Color = clTeal
Pen.Style = psClear
end
object Label1: TLabel
Left = 17
Top = 68
Width = 360
Height = 39
Caption =
'This wizard creates a new user account in a few simple steps. A' +
'fter you complete each step, click the Next button to move to th' +
'e next step.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label2: TLabel
Left = 17
Top = 160
Width = 101
Height = 13
Caption = 'Type the user'#39's name'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 38
Top = 207
Width = 17
Height = 13
Caption = 'TIP'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 67
Top = 207
Width = 342
Height = 13
Caption =
'A short name (for instance first name only) is easier to type an' +
'd remember'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label14: TLabel
Left = 21
Top = 20
Width = 252
Height = 35
Caption = 'New User Wizard'
Color = clBtnFace
Font.Color = clNavy
Font.Height = -32
Font.Name = 'MS Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label13: TLabel
Left = 17
Top = 108
Width = 352
Height = 39
Caption =
'First enter the new user'#39's name. The user will be required to e' +
'nter this name and a password when logging on to Windows. The u' +
'ser is prompted to provide a new password the first time he or s' +
'he logs on.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Image1: TImage
Left = 411
Top = 21
Width = 32
Height = 32
Picture.Data = {<image001.ico>}
end
object Image2: TImage
Left = 388
Top = 52
Width = 32
Height = 32
Picture.Data = {<image002.ico>}
end
object Label21: TLabel
Left = 17
Top = 17
Width = 252
Height = 35
Caption = 'New User Wizard'
Color = clBtnFace
Font.Color = clYellow
Font.Height = -32
Font.Name = 'MS Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object txtName: TEdit
Left = 39
Top = 179
Width = 185
Height = 21
HelpContext = 300
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
OnChange = txtNameChange
end
end
object PageIcon: TTabSheet
Caption = 'PageIcon'
TabVisible = False
object bevelIcon: TBevel
Left = 30
Top = 66
Width = 38
Height = 38
Style = bsRaised
end
object Label3: TLabel
Left = 24
Top = 23
Width = 349
Height = 26
Caption =
'Select an icon that will be displayed on the desktop for the use' +
'r'#39's program folder. This icon is also used to identify the user' +
' in Crowd Control.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label6: TLabel
Left = 27
Top = 227
Width = 17
Height = 13
Caption = 'TIP'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 55
Top = 227
Width = 354
Height = 26
Caption =
'Click Browse to select an icon file in another directory on your' +
' hard drive'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object imgUserIcon: TImage
Left = 33
Top = 69
Width = 32
Height = 32
end
object Image3: TImage
Left = 411
Top = 21
Width = 32
Height = 32
Picture.Data = {<image003.ico>}
end
object Image4: TImage
Left = 388
Top = 52
Width = 32
Height = 32
Picture.Data = {<image004.ico>}
end
object Image5: TImage
Left = 412
Top = 68
Width = 32
Height = 32
Picture.Data = {<image005.ico>}
end
object cmdBrowseIcon: TButton
Left = 22
Top = 116
Width = 54
Height = 21
HelpContext = 310
Caption = 'Browse'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = False
OnClick = cmdBrowseIconClick
end
object lstviewIcons: TFileView
Left = 88
Top = 62
Width = 292
Height = 159
HelpContext = 315
Columns = <>
ReadOnly = True
HideSelection = False
OnChange = lstviewIconsChange
TabOrder = 1
LargeImages = lstviewIcons.
SmallImages = lstviewIcons.
end
end
object PageDrives: TTabSheet
Caption = 'PageDrives'
TabVisible = False
object Label17: TLabel
Left = 24
Top = 21
Width = 262
Height = 13
Caption = 'Select drives to hide from the user in Windows Explorer '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 191
Top = 48
Width = 176
Height = 65
Caption =
'Selected drives will not be displayed in Windows Explorer or the' +
' common file dialogs. This makes it difficult for the user to v' +
'iew, delete or modify files on the selected drives. '
WordWrap = True
end
object Label18: TLabel
Left = 27
Top = 160
Width = 395
Height = 39
Caption =
'Files on hidden drives can be opened if the user types the full ' +
'path and name of the file in the File/Open dialog box or the DOS' +
' command prompt, or if the user searches for the file with the F' +
'ind command on Windows'#39' Start menu. '
WordWrap = True
end
object Image10: TImage
Left = 411
Top = 21
Width = 32
Height = 32
Picture.Data = {<image006.ico>}
end
object Image11: TImage
Left = 388
Top = 52
Width = 32
Height = 32
Picture.Data = {<image007.ico>}
end
object Image12: TImage
Left = 412
Top = 68
Width = 32
Height = 32
Picture.Data = {<image008.ico>}
end
object Image13: TImage
Left = 388
Top = 92
Width = 32
Height = 32
Picture.Data = {<image009.ico>}
end
object Label20: TLabel
Left = 28
Top = 207
Width = 397
Height = 26
Caption =
'You can further limit the user'#39's ability to access these drives ' +
'by selecting the '#39'Remove Find Command'#39' and '#39'Disable MS-DOS Promp' +
't'#39' settings in Step 4.'
WordWrap = True
end
object lstHideDrives: TDriveList
Left = 27
Top = 48
Width = 153
Height = 103
HelpContext = 320
ExtendedSelect = False
ItemHeight = 13
Items.Strings = (
'a:'
'c: []')
MultiSelect = True
Style = lbOwnerDrawFixed
TabOrder = 0
end
end
object PageRestrictions: TTabSheet
Caption = 'PageRestrictions'
TabVisible = False
object Label10: TLabel
Left = 24
Top = 25
Width = 282
Height = 13
Caption = 'Select Windows 95 restrictions that should apply to this user'
end
object Label8: TLabel
Left = 23
Top = 224
Width = 297
Height = 13
Caption =
'TIP For more information about an item, select it and press F' +
'1'
end
object Image6: TImage
Left = 411
Top = 21
Width = 32
Height = 32
Picture.Data = {<image010.ico>}
end
object Image7: TImage
Left = 388
Top = 52
Width = 32
Height = 32
Picture.Data = {<image011.ico>}
end
object Image8: TImage
Left = 412
Top = 68
Width = 32
Height = 32
Picture.Data = {<image012.ico>}
end
object Image9: TImage
Left = 388
Top = 92
Width = 32
Height = 32
Picture.Data = {<image013.ico>}
end
object Image28: TImage
Left = 411
Top = 108
Width = 32
Height = 32
Picture.Data = {<image014.ico>}
end
object chkNoRun: TCheckBox
Left = 46
Top = 54
Width = 267
Height = 17
HelpContext = 325
Caption = 'Disable '#39'Run'#39' Command on Start Menu'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object chkNoFind: TCheckBox
Left = 46
Top = 74
Width = 276
Height = 17
HelpContext = 330
Caption = 'Remove '#39'Find'#39' Command from Start Menu'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object chkNoDesktop: TCheckBox
Left = 46
Top = 114
Width = 267
Height = 17
HelpContext = 340
Caption = 'Hide All Items on Desktop'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object chkNoSettings: TCheckBox
Left = 46
Top = 94
Width = 267
Height = 17
HelpContext = 335
Caption = 'Disable '#39'Settings'#39' Command on Start Menu'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object chkNoRegEdit: TCheckBox
Left = 46
Top = 135
Width = 267
Height = 17
HelpContext = 345
Caption = 'Disable Registry Editing Tools'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object chkNoDOS: TCheckBox
Left = 46
Top = 155
Width = 267
Height = 17
HelpContext = 350
Caption = 'Disable MS-DOS prompt'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object chkNoSDOM: TCheckBox
Left = 46
Top = 175
Width = 267
Height = 17
HelpContext = 355
Caption = 'Disable Single-Mode MS-DOS Applications'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object chkRestrictSystem: TCheckBox
Left = 46
Top = 195
Width = 281
Height = 18
HelpContext = 360
Caption = 'Disable System Configuration Settings in Control Panel'
TabOrder = 7
end
end
object PageApplications: TTabSheet
Caption = 'PageApplications'
TabVisible = False
object Label9: TLabel
Left = 32
Top = 15
Width = 337
Height = 58
AutoSize = False
Caption =
'To limit the user to certain applications, check the box below. ' +
' Then click the Add Program button to add applications to the li' +
'st of programs the user may run. If this option is selected, t' +
'he user will only be able to run the listed programs.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Image15: TImage
Left = 411
Top = 21
Width = 32
Height = 32
Picture.Data = {<image015.ico>}
end
object Image16: TImage
Left = 388
Top = 52
Width = 32
Height = 32
Picture.Data = {<image016.ico>}
end
object Image17: TImage
Left = 412
Top = 68
Width = 32
Height = 32
Picture.Data = {<image017.ico>}
end
object Image18: TImage
Left = 388
Top = 92
Width = 32
Height = 32
Picture.Data = {<image018.ico>}
end
object Image19: TImage
Left = 411
Top = 108
Width = 32
Height = 32
Picture.Data = {<image019.ico>}
end
object Image20: TImage
Left = 388
Top = 132
Width = 32
Height = 32
Picture.Data = {<image020.ico>}
end
object lblTip: TLabel
Left = 258
Top = 190
Width = 183
Height = 65
AutoSize = False
Caption =
'Applications which Windows 95 runs at startup have been added to' +
' the application list.'
WordWrap = True
end
object Label23: TLabel
Left = 232
Top = 191
Width = 17
Height = 13
Caption = 'TIP'
end
object lstAllowedApplications: TListBox
Left = 32
Top = 103
Width = 177
Height = 140
HelpContext = 375
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
TabOrder = 0
end
object btnRemoveApplication: TBitBtn
Left = 230
Top = 135
Width = 127
Height = 28
HelpContext = 385
Caption = '&Remove Program'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnRemoveApplicationClick
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000007788777777777777700000007911877777987777700000007911
1877791187777000000079111187911118777000000077911118111118777000
0000777911111111877770000000777791111118777770000000777771111187
7777700000007777791111877777700000007777911111877777700000007779
1118111877777000000077911187911187777000000077911877791118777000
0000777917777791117770000000777777777779197770000000777777777777
777770000000}
Margin = 6
Spacing = -1
end
object btnAddApplication: TBitBtn
Left = 230
Top = 103
Width = 127
Height = 28
HelpContext = 380
Caption = '&Add Program'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btnAddApplicationClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777888888
7777777770000008777777777022220877777777702222087777777770222208
8888700000222200000870222222222222087022222222222208702222222222
2208700000222200000877777022220777777777702222077777777770222207
7777777770222207777777777000000777777777777777777777}
Margin = 6
Spacing = -1
end
object chkRunListed: TCheckBox
Left = 32
Top = 79
Width = 177
Height = 17
HelpContext = 370
Caption = '&Only run listed applications'
TabOrder = 3
end
end
object PageStartMenu: TTabSheet
Caption = 'PageStartMenu'
TabVisible = False
object Label16: TLabel
Left = 24
Top = 15
Width = 206
Height = 13
Caption = 'Select Program Folder for User'#39's Start Menu'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image21: TImage
Left = 411
Top = 21
Width = 32
Height = 32
Picture.Data = {<image021.ico>}
end
object Image22: TImage
Left = 388
Top = 52
Width = 32
Height = 32
Picture.Data = {<image022.ico>}
end
object Image23: TImage
Left = 412
Top = 68
Width = 32
Height = 32
Picture.Data = {<image023.ico>}
end
object Image24: TImage
Left = 388
Top = 92
Width = 32
Height = 32
Picture.Data = {<image024.ico>}
end
object Image25: TImage
Left = 411
Top = 108
Width = 32
Height = 32
Picture.Data = {<image025.ico>}
end
object Image26: TImage
Left = 388
Top = 132
Width = 32
Height = 32
Picture.Data = {<image026.ico>}
end
object Image27: TImage
Left = 411
Top = 148
Width = 32
Height = 32
Picture.Data = {<image027.ico>}
end
object btnOwnStartMenu: TRadioButton
Left = 28
Top = 54
Width = 327
Height = 17
HelpContext = 395
Caption = 'Create New Program Folder Copied from User Selected Below'
Checked = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
TabStop = True
end
object btnShareStartMenu: TRadioButton
Left = 28
Top = 71
Width = 297
Height = 17
HelpContext = 400
Caption = 'Share Program Folder With User Selected Below'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object lstviewUsers: TListView
Left = 13
Top = 90
Width = 133
Height = 132
HelpContext = 405
Columns = <>
ReadOnly = True
HideSelection = False
OnChange = lstviewUsersChange
TabOrder = 3
ViewStyle = vsList
SmallImages = SmallUsers
end
object fvStartFolder: TFolderView
Tag = 109
Left = 157
Top = 90
Width = 208
Height = 132
HelpContext = 410
ReadOnly = True
Indent = 19
ParentColor = False
TabOrder = 4
Images = fvStartFolder.
end
object btnEmptyStartMenu: TRadioButton
Left = 28
Top = 37
Width = 318
Height = 17
HelpContext = 390
Caption = 'Create Empty Program Folder'
TabOrder = 0
end
object chkCreateShortcut: TCheckBox
Left = 32
Top = 228
Width = 345
Height = 17
Caption = 'Create Shortcut to Program Folder on User'#39's Desktop'
State = cbChecked
TabOrder = 5
end
end
object PageFinish: TTabSheet
Caption = 'PageFinish'
TabVisible = False
object Shape2: TShape
Left = 374
Top = 4
Width = 65
Height = 245
Brush.Color = clTeal
Pen.Style = psClear
end
object Label11: TLabel
Left = 393
Top = 23
Width = 29
Height = 210
Alignment = taCenter
Caption = 'F I N I S H'
Font.Color = clNavy
Font.Height = -32
Font.Name = 'MS Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
end
object Label12: TLabel
Left = 28
Top = 8
Width = 318
Height = 26
Caption =
'Those are all the answers the Wizard needs to create the new use' +
'r'#39's account!'
WordWrap = True
end
object Label19: TLabel
Left = 28
Top = 40
Width = 315
Height = 39
Caption =
'If you want to change any settings, click Back. If you are sati' +
'sfied with the settings, click Finish. It may take a minute or ' +
'two for the Wizard to set up the new user'#39's account. '
WordWrap = True
end
object Label22: TLabel
Left = 390
Top = 20
Width = 29
Height = 210
Alignment = taCenter
Caption = 'F I N I S H'
Font.Color = clYellow
Font.Height = -32
Font.Name = 'MS Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
end
object memoSummary: TMemo
Left = 24
Top = 88
Width = 335
Height = 157
HelpContext = 420
Color = clBtnFace
Lines.Strings = (
'')
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
WantReturns = False
WordWrap = False
end
end
end
object OpenDialog1: TOpenDialog
FileEditStyle = fsEdit
Left = 16
Top = 269
end
object SmallUsers: TImageList
Left = 72
Top = 269
end
end